This command will scale the specified 3D object to stretch or shrink in all three dimensions, using percentage scale values.

SCALE OBJECT Object Number, XSize, YSize, ZSize

Object Number

Integer
The object number

XSize

Float
The x percentage scale values

YSize

Float
The y percentage scale values

ZSize

Float
The z percentage scale values

This command does not return a value.

The object number should be specified using an integer value and the scale specified using real values.

hide mouse:cls 0:autocam off

ObjectNumber=1

SecondObject=2

ImageNumber=1

make object sphere SecondObject,1

load object "models\model.x",ObjectNumber

load image "iron.jpg",ImageNumber

append object "models\extraanim.x", ObjectNumber, total object frames(ObjectNumber)+1

set object interpolation ObjectNumber,50

position object ObjectNumber,0,0,0

position object SecondObject,0,0,0

position camera 0,2,4

point camera 0,0,0

while mouseclick()=0

set cursor 0,0

print "press a to scale object"

if inkey$()="a"

scale object ObjectNumber,100,200,100

wait 1000*4

scale object ObjectNumber,100,100,100

endif

print "press up arrow key"

if upkey()=1 then move camera  1:while scancode()<>0:endwhile

print "press down arrow key"

if downkey()=1 then move camera -1:while scancode()<>0:endwhile

print "press left arrow key"

if leftkey()=1 then turn camera left 1

print "press right arrow key"

if rightkey()=1 then turn camera right 1

endwhile

while mouseclick()=1:endwhile

if object exist(ObjectNumber)=1 then delete object ObjectNumber

if object exist(SecondObject)=1 then delete object SecondObject

if image exist(ImageNumber)=1 then delete image ImageNumber

end

BASIC3D Commands Menu
Index